home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d15 / maximo_1.arc / TXT.ARC / ENGR.TXT < prev    next >
Text File  |  1991-08-20  |  5KB  |  219 lines

  1. ;------------------------------------------------------
  2. ;
  3. ;  ED -- ed the engineer    
  4. ;    (c) copyright 1990 Chris Butler
  5. ;    last  mod  11/28 2 pm
  6.  
  7. ;VIDEO M
  8.  
  9.   set allsolns off
  10.   goto top
  11. all:
  12.   set allsolns on    ; will cycle thru all modules
  13. top:
  14.  
  15. ;mouse on
  16.  
  17. global boxllx 0 ; mod 8 = 0
  18. global boxlly 0
  19. global boxw  488
  20. global boxh  115
  21. global boxtitle "Max with Ed the engineer"
  22. set h 17    ; key height
  23. set keycolor 14 ; keytop color in convbox = 14 (yellow)
  24. set txtboxclr 14; 
  25. cload max.clp 30 1 0    ; max's face
  26. tran on 15
  27. cload cover.clp 32 0 1 
  28. merge toursubs.txt     ; subrs common to all 6 solutions
  29.  
  30. ed:
  31. set entrypoint "entry_7"    ; for MENUing back
  32. pload palette1.pcx 1
  33. palette 1
  34.  
  35. pnewbuf 1
  36. psetbuf 1
  37. color 0
  38. clearscr
  39. psetbuf
  40. pfade 10 1 300
  41. pfree 1
  42.  
  43. cfade 20 80,300 30
  44. color 15
  45. rect 240,40 540,439
  46. window 270,40 520,420
  47. color 0
  48. fload ibm16
  49. text 270,400 "Hi! I'm Max, the MAXIMO system manager at the Quench-Rite"
  50. text " Bottling Company."
  51. text 270,320 "We've had MAXIMO Series 3 for about a year now. And MAXIMO has"
  52. text " dramatically improved all aspects of our maintenance effort!"
  53. text 270,200 "The folks at PSDI asked me to tell you about a recent "
  54. text "maintenance issue we resolved with MAXIMO's help. "
  55. text "Please join me in a re-creation of a series of morning meetings."
  56. text 270,60 "Press <Enter> to continue."
  57. waitkey
  58. window
  59.  
  60. set boxtitle "Max with Ed the engineer"
  61. cload bill.clp 31 1 0
  62. pload proteus.pcx 1
  63. pfade 4 1
  64. pfree 1
  65. note 100 10 10 
  66. waitkey
  67. call steps.txt engr
  68.  
  69. newbgrnd "bill1a.pcx" 80 0 1 0 200 5
  70. ;mouse on
  71.  
  72. label001:
  73. set str1 "Hi, Ed. How are you today?"
  74. set str2 ""
  75. say 1 @str1 @str2
  76. label1a:
  77. waitkey 50
  78. getcmd
  79. if @0<>"backup" label1b
  80. noise 500 200 50
  81. waitkey 100
  82. goto label1a
  83.  
  84. label1b:
  85. set str1 "Just fine, Max."
  86. set str2 " "
  87. say 0 @str1 @str2
  88. waitkey 50
  89. getcmd
  90. if @0=="backup" label001
  91.  
  92. label002:
  93. set str1 "Ed, the plant manager called me this morning and asked if I"
  94. set str2 " could look into the Eclipse cartoner bearing failures."
  95. say 1 @str1 @str2
  96. getcmd
  97. if @0=="backup" label1b
  98.  
  99. label003:
  100. set str1 "OK Max. Those block bearings have been a real pain recently."
  101. set str2 " Maybe we need to schedule a retrofit for all 8 cartoners."
  102. say 0 @str1 @str2
  103. getcmd
  104. if @0=="backup" label002
  105.  
  106. label004:
  107. set str1 "How many bearings are we talking about, Ed?"
  108. set str2 " "
  109. say 1 @str1 @str2
  110. getcmd
  111. if @0=="backup" label003
  112.  
  113. label005:
  114. set str1 "Let's look it up in MAXIMO!"
  115. set str2 ""
  116. say 1 @str1 @str2
  117. waitkey 50
  118. getcmd
  119. if @0=="backup" label004
  120.  
  121. label006:
  122. newbgrnd "scr1a.pic" 80,0 1 0 100 22
  123. set str1 " ... from MAXIMO's Main Menu we go to the Equipment Screen ..."
  124. set str2 ""
  125. say 1 @str1 @str2
  126. getcmd
  127. if @0=="backup" label005
  128.  
  129. labe009:
  130. newbgrnd "2.pcx" 80,80 1 0 100 9
  131. set str1 "I don't know the equipment number so I'll just search on the word "
  132. set str2 "`CARTONER'."
  133. say 1 @str1 @str2
  134. waitkey 50
  135. getcmd
  136. if @0=="backup" label006
  137.  
  138. label09a:
  139. newbgrnd "3.pcx" 80,0 1 0 100 9
  140. set str1 "OK, here's the Eclipse cartoner. Now let's look for the bearing "
  141. set str2 "information on the Subassemblies and Parts screen."
  142. say 1 @str1 @str2
  143. waitkey 50
  144. getcmd
  145. if @0=="backup" label009
  146.  
  147. label010:
  148. newbgrnd "4.pcx" 80,200 1 0 100 9  ; 
  149. set str1 "... and it looks like we have only one block bearing per cartoner."
  150. set str2 " "
  151. say 1 @str1 @str2
  152. getcmd
  153. if @0=="backup" label09a
  154.  
  155. label11:
  156. set str1 "Just to be sure, can you give me the Eclipse cartoner engineering "
  157. set str2 "drawing?"
  158. say 0 @str1 @str2
  159. getcmd
  160. if @0=="backup" label010
  161.  
  162. label012:
  163. set str1 "Sure thing Ed. MAXIMO runs under Microsoft (R) WINDOWS 3.0 (TM) so we"
  164. set str2 " can pull up engineering drawings with a couple keystrokes!"
  165. say 1 @str1 @str2
  166. waitkey 25
  167. getcmd
  168. if @0=="backup" label11
  169.  
  170. label013:
  171. newbgrnd "5.pcx" 80,0 0 0 300 9 ;
  172. set str1 "OK, the drawing also says just one bearing. Max, we started vibration"
  173. set str2 " monitoring on those bearings. What are the latest readings?"
  174. say 0 @str1 @str2
  175. waitkey 100
  176. getcmd
  177. if @0=="backup" label012
  178.  
  179. label014:
  180. newbgrnd "6.pcx" 80,260 1 0 100 9 ;
  181. set str1 "Hmmm. MAXIMO Series 3 can jump right into a spreadsheet. Wouldn't "
  182. set str2 "it be nice to look at a trend line of that data?"
  183. say 1 @str1 @str2
  184. getcmd
  185. if @0=="backup" label013
  186.  
  187. label015:
  188. set str1 "Good idea, Max."
  189. set str2 " "
  190. say 0 @str1 @str2
  191. getcmd
  192. if @0=="backup" label014
  193.  
  194. label016:
  195. newbgrnd "7.pcx" 80,0 0 0 250 9 ;
  196. set str1 "They're getting very noisy, Max. Let's schedule the retrofit "
  197. set str2 "replacement with the new bearing ASAP!"
  198. say 0 @str1 @str2
  199. getcmd
  200. if @0=="backup" label015
  201.  
  202. label017:
  203. newbgrnd "bill1a.pcx" 80,0 1 0 100 9 ;
  204. set str1 "OK Ed. I'll go see Sue, the maintenance scheduler, and see what she"
  205. set str2 " can do for us."
  206. say 1 @str1 @str2
  207. getcmd
  208. if @0=="backup" label016
  209.  
  210. ;mouse off 
  211.  
  212. if @allsolns==on linkit
  213.   link master entry_7  ;otherwise link back to master
  214. linkit:
  215.   link sched.txt all
  216.  
  217. ;   SUBR ED
  218.  
  219.